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MODULE RPGSERROR( ZTITLE ogggt! non-1/0 errors’ 
ewe = '1-002' e: RPGERROR.B32 EDIT:DG1002 


r 
'f 
BEGIN 
i eee eee eee eee ee eee ee eee ReReKeEReH eee eee eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre 
'* ONLY IN ACCORDA og BL THE TERMS OF SUCH Tit AND WITH THE 


: WAR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
tes CORPORATION." NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


+* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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FACILITY: RPGII SUPPORT 
ABSTRACT 
Signals a variety of compiler-detected non-1/0 errors. 


oooooooo 
Ooo°oceo 
WAI 


ENVIRONMENT: Vax-11 User Mode 
AUTHOR: Debess Grabazs, CREATION DATE: 18-JAN-1983 
MODIFIED BY: 


1-001 = Original. DG 18-JAN-1983 
_1-002 - Add support for optional FAO argument. DG 11-Jul-1983 
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Signal non-1/0 errors 


Declarations 
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macros, 
ARYs 


! Switches, PSECTs 
Linkages and LIBR 


! Stop execution via signalling 
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! Optional FAO parameter for message 
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; Routine Size: 33 bytes, Routine Base: _RPGSCODE + 0000 


; 148 0209 1 
149 0210 0 END ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_RPGSCODE 33 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 
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RPGSERROR Signal non-1/0 erro ibese -1984 214: AX-11 Bliss-32 V4.0-74 
1 805 RPESERROR - 5 Rot pa non-1/0 errors 127808- 1382 9g: 4e44 APGRTL” SR RCIR RPGERROR.B32;1 
; } 5 0136 BEGIN 
. § 3 0198 BUILTIN 
; 138 19 ACTUALCOUNT ; 
; 139 0200 
; 140 0201 '¢ 
: 133 8 8s i. Signal the error 
: 128 0204 if ACTUALCOUNT() GEO 2 
: 166 0205 THEN LIB$STOP (. ERROR . FAO) 
> 145 0 06 ELSE CIBSSTOP CERRORS | 
; 146 8 07 2 
; «614 06 1 END; 
«TITLE RPGSERROR Signal non-1/0 errors 
-IDENT \1-002\ 
.EXTRN LIBSSTOP 
-PSECT _RPGSCODE,NOWRT, SHR, PIC,2 
0004 00000 ENTRY RPGSERROR, Save R2 
52 000000006 90 9E 00002 MOVAB LIBSSTOP, R2 
02 C 91 00009 CMPB (AP), #2 
OC 1F QO00C BLSSU 
08 AC DD OOOOE PUSHL FAO 
01 DD 00011 PUSHL 
04 AC DD 00013 PUSHL ERROR 
62 03 FB 00016 CALLS #3, LIBSSTOP 
04 00019 RET 
04 AC DD OOOIA 18 PUSHL ERROR 
62 01 FB 0001D CALLS #1, LIBSSTOP 
04 00020 RET 


————————— 
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RPGSERROR Signal non-1/0 erro 16-Sep-1 AX-11 Bliss-32 V4.0-7 Page 5 
re805 RPGSERROR - Slew os non-1/0 errors 1a-Sep- 1382 9¢:)¢ RPGRTL.SRC RPGERROR. bg 31 . (4) 
; scanesms FyYGGOLG esesnecs Pages Processing 
‘ File Total ioaded Percent Mapped Time 
; ~$335g0UAz8 SYSLIBISTARLET.L32;1 9776 ; 0 581 00:01 .0 
3 55$DUA28: CRPGRTL.OBJJRPGLIB.L32;1 54 0 S 0:00.1 
: COMMAND QUALIFIERS 
P BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:RPGERROR/OBJ=OBJ$:RPGERROR MSRC$:RPGERROR/UPDATE=(ENH$:RPGERROR) 
; Size: 33 code + 0 data bytes 

Run Time: 0:03.0 


3; Elapsed Time: 00:13.8 
3; Lines/CPU Min: 4172 
; ponenees Pe Wont 5086 
3 pewe | Used: 31 pages 
; Compilation Complete 
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